﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if
IF  Request.QueryString("Action")="login" Then
	call login
else
	call index
end if
end Function



Function index
	dim rs,sql,Runtxt
	Runtxt=qingtian.RunStr
%>
	<card title="论坛信息配置"><p align="left">
<%
		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select top 1 *  FROM qingtian_bbs_config"
		rs.open sql,conn,1,1
		if not (rs.eof and rs.bof) then
%>
	论坛名称：<br/>
	<input emptyok="true"  name="title<%=Runtxt%>" maxlength="50" value="<%=qingtian.FormatEdit(rs("title"))%>" type="text"/><br/>
	论坛Logo：<br/>
	<input emptyok="true"  name="Logo<%=Runtxt%>" maxlength="255" value="<%=qingtian.FormatEdit(rs("Logo"))%>" type="text"/><br/>
	栏目排序：<br/>
   	<select name="px<%=Runtxt%>" value="<%=qingtian.FormatEdit(rs("px"))%>">
	<%if rs("px")="left" then%>
	<option value="left">向左对齐</option>
	<option value="center">居中对齐</option>
	<option value="right">向右对齐</option>
	<%elseif rs("px")="center" then%>
	<option value="center">居中对齐</option>
	<option value="left">向左对齐</option>
	<option value="right">向右对齐</option>
	<%else%>
	<option value="right">向右对齐</option>
	<option value="left">向左对齐</option>
	<option value="center">居中对齐</option>
	<%end if%>
	</select><br/>
	论坛上传设置：<br/>
   	<select name="upfile<%=Runtxt%>" value="<%=qingtian.FormatEdit(rs("upfile"))%>">
	<%if rs("upfile")=true then%>
	<option value="true">允许</option>
	<option value="false">禁止</option>
	<%else%>
	<option value="false">禁止</option>
	<option value="true">允许</option>
	<%end if%>
	</select><br/>
   	上传组件：<br/>
   	<select name="FileType<%=Runtxt%>" value="<%=rs("FileType")%>" >
	<option value="0">无组件上传</option>
	<option value="1">Aspupload3.0组件</option>
	<option value="2">SA-FileUp 4.0组件</option>
	<option value="999">关闭上传功能</option>
	</select><br/>
	上传文件格式：<br/>
	<input emptyok="true"  name="format<%=Runtxt%>" maxlength="255" value="<%=qingtian.FormatEdit(rs("format"))%>" type="text"/><br/>
	上传文件大小：<br/>
	<input emptyok="true"  name="filesize<%=Runtxt%>" maxlength="255" value="<%=qingtian.FormatEdit(rs("filesize"))%>" type="text"/><br/>
	版权信息：<br/>
	<input emptyok="true"  name="copyright<%=Runtxt%>" maxlength="255" value="<%=qingtian.FormatEdit(rs("copyright"))%>" type="text"/><br/>
	<anchor>保存设置
    	<go href="bbsconfig.asp?Action=login&amp;sid=<%=sid%>" method='post'>
        <postfield name="title" value="$(title<%=Runtxt%>)"/>
        <postfield name="Logo" value="$(Logo<%=Runtxt%>)"/>
        <postfield name="px" value="$(px<%=Runtxt%>)"/>
        <postfield name="copyright" value="$(copyright<%=Runtxt%>)"/>
        <postfield name="format" value="$(format<%=Runtxt%>)"/>
        <postfield name="filesize" value="$(filesize<%=Runtxt%>)"/>
        <postfield name="FileType" value="$(FileType<%=Runtxt%>)"/>
        <postfield name="upfile" value="$(upfile<%=Runtxt%>)"/>
    	</go>
	</anchor><br/>
<%
		end if
		rs.Close
		Set rs = Nothing
%>
-------------<br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
End Function


Function login

		dim title,Logo,px,copyright,rs,sql,errs,upfile,format,filesize,FileType
		title=Request.form("title")
		Logo=Request.form("Logo")
		px=Request.form("px")
		copyright=Request.form("copyright")
		upfile=TRim(Request.Form("upfile"))
		format=TRim(Request.Form("format"))
		filesize=TRim(Request.Form("filesize"))
		FileType=TRim(Request.Form("FileType"))
		if FileType="" then FileType=0
		errs=""
		if title="" then errs=errs & "站点名称不能为空<br/>"
		if px="" then errs=errs & "栏目排序不能为空<br/>"
		if copyright="" then errs=errs & "版权信息不能为空<br/>"
		if upfile=""  then errs=errs&"上传设置不能为空<br/>"
		if format=""  then errs=errs&"上传文件格式不能为空<br/>"
		if filesize=""  then errs=errs&"上传文件大小不能为空<br/>"
	%>
	<card id="login" title="论坛信息配置" ontimer="index.asp?sid=<%=sid%>"><timer value="20"/>
		<p align="left">
	<%
	IF len(errs)=0 then


		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select top 1 * FROM qingtian_bbs_config"
		rs.open sql,conn,1,3
		if not (rs.eof and rs.bof) then
					rs("FileType")=FileType
					rs("title")=title
					rs("upfile")=upfile
					rs("copyright")=copyright
					rs("px")=px
					rs("logo")=logo
					rs("format")=format
					rs("filesize")=filesize


		rs.update()
	
		end if
		rs.Close
		Set rs = Nothing
		%>保存设置成功!<br/><%

	else%>
		<%=errs%>
		<a href="bbsconfig.asp?sid=<%=sid%>">返回修改</a><br/>
<%	end if
%>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
end Function 


%>
